﻿Imports Microsoft.VisualBasic

Namespace My
    Public Class MyDate

        Public Shared Function IsDate(ByVal sDate As String)
            Try
                DateTime.Parse(sDate)
                Return True
            Catch ex As Exception
                Return False
            End Try
        End Function
    End Class

End Namespace
